;;;
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved.
;;;	web: http://paracadd.com/
;;;
;;;  Copyright:
;;;     Edited:
;;;
(defun c:attincr ()
  (setq old_attdia (getvar "attdia"))	
  (setq old_attreq (getvar "attreq"))
  (setvar "attdia" 0);;;supresses the dialog screen
  (setvar "attreq" 1);;;asks for attribute values
  (setq dimsc (getvar "dimscale"))
  (setq base_no (getint "\nBase number"))
  (setq incr_no (getint "\nNumber Increment"))
  (setq block_name (getstring "\nBlock name"))
  (while
    (setq ins_pt (getpoint "\nInsertion point"))
    (command "_.insert" block_name ins_pt dimsc dimsc 0 "\\" "\\")
  )
  (setvar "attdia" old_attdia)
  (setvar "attreq" old_attreq)
  (princ)
)